Sub 정렬()

    With ActiveSheet.Sort
    
        .SortFields.Clear
        .SortFields.Add2 Key:=Range("C3:C22"), _
                         Order:=xlDescending
        
        .SetRange Range("C3:C22")
        .Header = xlNo
        .Apply
        
    End With

End Sub